(describe-char): Check font-object by fontp.

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 96ef2458e4240cc45abe6ebcd511f55c97611018..89325cca22ae942bdda148b75d8a2578184eaeb0 100644 (file)
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -630,7 +630,7 @@ as well as widgets, buttons, overlays, and text properties."
                     (nglyphs (lgstring-glyph-len gstring))
                     (i 0)
                     glyph)
-               (if font
+               (if (fontp font)
                    (progn
                      (insert " using this font:\n  "
                              (symbol-name (font-get font :type))